home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
COMMODOR
/
RECIP.ARC
/
COVER SHEET
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2000-06-30
|
358b
|
18 lines
10 PRINT"[147]"
20 REM COVER SHEET
30 PRINT"PRESS 'P' TO PRINT COVER SHEET"
35 PRINT"PRESS 'E' TO END"
40 GETA$:IFA$><"P"ANDA$<>"E"THEN40
50 IFA$="E"THENEND
60 OPEN1,4
70 CMD1
75 PRINTCHR$(15)
80 FORT=1TO20:PRINT"":NEXT
90 FORU=1TO40:PRINT"[214][214]";:NEXT
100 FORV=1TO10:PRINT"":NEXT
110 PRINTCHR$(14)CHR$(16)"25ROGER & SUSAN'S"
120 PRINTCHR$(16)"32COOKBOOK"
130 PRINTCHR$(15)
140 FORQ=1TO10:PRINT"":NEXT:FORIU=1TO40:PRINT"[214][214]";:NEXT
150 FORT=1TO22:PRINT#1:NEXT:CLOSE1